10 REM BASIC SPRITE FILE LOADER
20 S=128*64:REM 128 = SPRITE BLOCK NUMBER
30 OPEN1,8,4,"FILENAME":REM USE FILENAME OF DESIRED SPRITE
40 B$=CHR$(0):FORA=STOS+4096:GET#1,A$:POKEA,ASC(A$+B$): IFST=.THENNEXT
50 CLOSE1